home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / K-L / KeyMessages.cpt / Key messages / background_2753.txt next >
Encoding:
Text File  |  1987-11-07  |  530 b   |  25 lines
  1. -- background: 2753 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the message box into k
  9.   if k is not empty then
  10.     repeat with i = 1 to length(k)
  11.       do "key " & quote & char i of k & quote
  12.     end repeat
  13.     put empty into the message box
  14.   end if
  15. end idle
  16.  
  17. on key
  18.   put param(1) into c
  19.   if offset(c, "qwertyuiop[]asdfghjkl;'zxcvbnm,./ ") <> 0 then
  20.     set the hilite of button c to true
  21.     set the hilite of button c to false
  22.   end if
  23. end key
  24.  
  25.